'From Pharo1.3 of 16 June 2011 [Latest update: #13307] on 24 November 2011 at 2:01:51 pm'!TestCase subclass: #TesteDireita	instanceVariableNames: ''	classVariableNames: ''	poolDictionaries: ''	category: 'Jogo-Sokoban-Teste'!!TesteDireita methodsFor: 'as yet unclassified' stamp: 'lol 11/23/2011 16:50'!testePosicaoDestinoDadoPosicao	self assert: (Direita posicaoDestinoDadoPosicao: (1@1)) equals: (2@1) .! !